800
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComHTMLPicture "p1" to "c:\exontrol\images\card.png"
	Set ComHTMLPicture "p2" to "c:\exontrol\images\sun.png"
	Set ComAutoDrag to OLEexAutoDragCopySnapShot
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Set ComHasLines to OLEexThinLine
	Set ComShowFocusRect to False
	Set ComDefaultItemHeight to 26
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 96
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
				Set ComHeight of hoBar to 18
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "<img>p1:32</img>Group 1" to h
		Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
		Set ComItemDivider of hoItems h to 0
		Set ComItemBold of hoItems h to True
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
		Get ComAddItem of hoItems "<img>p2:32</img>Group 2" to h
		Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
		Get ComInsertItem of hoItems h "Task" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Set ComExpandItem of hoItems 0 to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
799
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "p1" to "c:\exontrol\images\card.png"
	Set ComHTMLPicture "p2" to "c:\exontrol\images\sun.png"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant var_HTMLPicture
	Get ComHTMLPicture "aka1" to var_HTMLPicture
	Set ComHeaderHeight to 24
	Set ComDefaultItemHeight to 48
	Set ComDrawGridLines to OLEexRowLines
	Set ComGridLineColor to (RGB(240,240,240))
	Set ComSelBackMode to OLEexTransparent
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellCaptionFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComItem of hoColumns2 0 to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComWidth of hoColumn2 to 112
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voColumns3
	Get ComColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Variant voColumn3
		Get ComItem of hoColumns3 1 to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComDef of hoColumn3 OLEexCellHasCheckBox to 1
		Send Destroy to hoColumn3
	Send Destroy to hoColumns3
	Variant voColumns4
	Get ComColumns to voColumns4
	Handle hoColumns4
	Get Create (RefClass(cComColumns)) to hoColumns4
	Set pvComObject of hoColumns4 to voColumns4
		Variant voColumn4
		Get ComItem of hoColumns4 2 to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComLevelKey of hoColumn4 to "1"
		Send Destroy to hoColumn4
	Send Destroy to hoColumns4
	Variant voColumns5
	Get ComColumns to voColumns5
	Handle hoColumns5
	Get Create (RefClass(cComColumns)) to hoColumns5
	Set pvComObject of hoColumns5 to voColumns5
		Variant voColumn5
		Get ComItem of hoColumns5 3 to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComLevelKey of hoColumn5 to "1"
		Send Destroy to hoColumn5
	Send Destroy to hoColumns5
	Variant voColumns6
	Get ComColumns to voColumns6
	Handle hoColumns6
	Get Create (RefClass(cComColumns)) to hoColumns6
	Set pvComObject of hoColumns6 to voColumns6
		Variant voColumn6
		Get ComItem of hoColumns6 4 to voColumn6
		Handle hoColumn6
		Get Create (RefClass(cComColumn)) to hoColumn6
		Set pvComObject of hoColumn6 to voColumn6
			Set ComLevelKey of hoColumn6 to "1"
		Send Destroy to hoColumn6
	Send Destroy to hoColumns6
	Set ComAutoDrag to OLEexAutoDragCopyImage
	Set ComSingleSel to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComItemByIndex of hoItems 1 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 2 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 3 to h
		Set ComSelectItem of hoItems h to True
		Set ComLockedItemCount of hoItems OLEBottomAlignment to 1
		Get ComLockedItem of hoItems OLEBottomAlignment 0 to h
		Set ComCellCaption of hoItems h 1 to "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
		Set ComCellSingleLine of hoItems h 1 to False
		Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
		Set ComCellHAlignment of hoItems h 1 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 1
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerTop
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
798
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 2 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComLevelKey of hoColumn to "1"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 3 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComLevelKey of hoColumn1 to "1"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComItem of hoColumns2 4 to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComLevelKey of hoColumn2 to "1"
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Set ComAutoDrag to OLEexAutoDragCopyText
	Set ComSingleSel to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComItemByIndex of hoItems 1 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 3 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 4 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 5 to h
		Set ComSelectItem of hoItems h to True
		Set ComLockedItemCount of hoItems OLEBottomAlignment to 1
		Get ComLockedItem of hoItems OLEBottomAlignment 0 to h
		Set ComCellCaption of hoItems h 0 to "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
		Set ComCellSingleLine of hoItems h 0 to False
		Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerTop
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
797
Is it possible to change the indentation during the drag and drop

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAutoDrag to OLEexAutoDragPositionAny
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Set ComHasLines to OLEexSolidLine
	Set ComHasButtons to OLEexWPlus
	Set ComShowFocusRect to False
	Set ComSelBackMode to OLEexTransparent
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 128
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Group 1" to h
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComInsertItem of hoItems h1 "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/15/2001" "1/17/2001" "K4" Nothing
		Get ComInsertItem of hoItems h1 "Task 3" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
		Set ComExpandItem of hoItems h to True
		Set ComExpandItem of hoItems h1 to True
		Get ComAddItem of hoItems "Group 2" to h
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
		Set ComLockedItemCount of hoItems OLEBottomAlignment to 1
		Get ComLockedItem of hoItems OLEBottomAlignment 0 to h
		Set ComCellCaption of hoItems h 0 to "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the indentation."
		Set ComCellSingleLine of hoItems h 0 to False
		Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
796
Is it possible to allow moving an item to another, but keeping its indentation

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAutoDrag to OLEexAutoDragPositionKeepIndent
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Set ComHasLines to OLEexThinLine
	Set ComShowFocusRect to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 96
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Group 1" to h
		Set ComItemDivider of hoItems h to 0
		Set ComItemBold of hoItems h to True
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Group 2" to h
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
795
How can I change the row's position to another, by drag and drop. Is it possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAutoDrag to OLEexAutoDragPosition
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
794
Have seen the RenderType, but do not know what kind of values should I use

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComBackColorHeader to |CI$1000000
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComBackColorLevelHeader of hoChart to |CI$1000000
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
	Send Destroy to hoItems
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Set ComRenderType of hoAppearance1 to -2147483393
	Send Destroy to hoAppearance1
	Send ComEndUpdate
End_Procedure
793
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Item" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilter of hoColumn to "Child 1"
			Set ComFilterType of hoColumn to OLEexFilter
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Date" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDisplayFilterButton of hoColumn1 to True
			Set ComDisplayFilterPattern of hoColumn1 to False
			Set ComDisplayFilterDate of hoColumn1 to True
			Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems)
			Set ComFilter of hoColumn1 to "12/28/2010"
			Set ComFilterType of hoColumn1 to OLEexDate
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Set ComFilterCriteria to "%0 or %1"
	Set ComDescription OLEexFilterBarOr to "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
	Set ComDescription OLEexFilterBarAnd to "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to "12/27/2010"
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to "12/28/2010"
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to "12/29/2010"
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to "12/30/2010"
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
792
Is it possible exclude the dates being selected in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
791
How can I display a calendar control inside the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
790
Is it possible to include the dates as checkb-boxes in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Dates" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox)
			Set ComFilter of hoColumn to "to 12/27/2010"
			Set ComFilterType of hoColumn to OLEexDate
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
789
How can I filter items for dates before a specified date

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Dates" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexNoItems)
			Set ComFilter of hoColumn to "to 12/27/2010"
			Set ComFilterType of hoColumn to OLEexDate
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
788
Is it possible to filter dates

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Dates" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
787
Is it possible to change the Exclude field name to something different, in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComDescription OLEexFilterBarExclude to "Leaving out"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
786
How can I display the Exclude field in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
785
Is it possible to show and ensure the focused item from the control, in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Set ComSelectItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) to True
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
784
Is it possible to show only blanks items with no listed items from the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowBlanks + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
783
How can I include the blanks items in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowBlanks + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
782
How can I select multiple items in the drop down filter window, using check-boxes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to OLEexShowCheckBox
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
781
Is it possible to allow a single item being selected in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to OLEexSingleSel
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
780
How can I display no (All) item in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComDescription OLEexFilterBarAll to ""
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComFilterList of hoColumn to OLEexNoItems
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
779
Is it possible to display no items in the drop down filter window, so only the pattern is visible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComFilterList of hoColumn to OLEexNoItems
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
778
How can I show the child items with no identation

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 12
	Set ComHasLines to OLEexThinLine
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
	Send Destroy to hoItems
End_Procedure
777
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesAtRoot
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
776
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
	Send Destroy to hoItems
End_Procedure
775
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesInsideLeaf
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
774
Is there other ways of showing the hierarchy lines (exGroupLinesInside)

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesInside
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
773
Is there other ways of showing the hierarchy lines (exGroupLines)

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLines
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "SubChild 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
772
Is it possible background color displayed when the mouse passes over an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Set ComHotBackColor to (RGB(0,0,128))
	Set ComHotForeColor to (RGB(255,255,255))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item A" to Nothing
		Get ComAddItem of hoItems "Item B" to Nothing
		Get ComAddItem of hoItems "Item C" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
771
How can I simulate displaying groups

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasLines to OLEexNoLine
	Set ComScrollBySingleLine to True
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Name" to Nothing
		Get ComAdd of hoColumns "A" to Nothing
		Get ComAdd of hoColumns "B" to Nothing
		Get ComAdd of hoColumns "C" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Group 1" to h
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
		Set ComItemHeight of hoItems h to 24
		Set ComSortableItem of hoItems h to False
		Variant h1
		Get ComInsertItem of hoItems h "Child 1" to h1
		Set ComCellCaption of hoItems h1 1 to 1
		Set ComCellCaption of hoItems h1 2 to 2
		Set ComCellCaption of hoItems h1 3 to 3
		Get ComInsertItem of hoItems h "Child 2" to h1
		Set ComCellCaption of hoItems h1 1 to 4
		Set ComCellCaption of hoItems h1 2 to 5
		Set ComCellCaption of hoItems h1 3 to 6
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Group 2" to h
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
		Set ComItemHeight of hoItems h to 24
		Set ComSortableItem of hoItems h to False
		Get ComInsertItem of hoItems h "Child 1" to h1
		Set ComCellCaption of hoItems h1 1 to 1
		Set ComCellCaption of hoItems h1 2 to 2
		Set ComCellCaption of hoItems h1 3 to 3
		Get ComInsertItem of hoItems h "Child 2" to h1
		Set ComCellCaption of hoItems h1 1 to 4
		Set ComCellCaption of hoItems h1 2 to 5
		Set ComCellCaption of hoItems h1 3 to 6
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
770
Is it possible to change the height for all items at once

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems 0 to True
	Send Destroy to hoItems
	Send ComEndUpdate
	Set ComDefaultItemHeight to 12
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComItemHeight of hoItems1 0 to 12
	Send Destroy to hoItems1
End_Procedure
769
Is it possible to specify the cell's value but still want to display some formatted text instead the value

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Value" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "FormatCell" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 1 to h
		Set ComCellCaption of hoItems h 1 to 12
		Set ComFormatCell of hoItems h 1 to "currency(value)"
		Get ComAddItem of hoItems "1/1/2001" to h
		Set ComCellCaption of hoItems h 1 to "1/1/2001"
		Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
		Set ComFormatCell of hoItems h 1 to "longdate(value) replace '2001' with '<b>2001</b>'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
768
Is it possible to specify the cell's value but still want to display some formatted text instead the value

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Name" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Values" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortNumeric
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 64
			Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			Set ComDef of hoColumn OLEexCellCaptionFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Set ComFormatCell of hoItems h 1 to "'<none>'"
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
767
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Name" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Values" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortNumeric
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 64
			Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			Set ComDef of hoColumn OLEexCellCaptionFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Set ComFormatCell of hoItems h 1 to " "
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
		Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
766
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "1" "K1" to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat to |CI$1
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voConditionalFormats1
	Get ComConditionalFormats to voConditionalFormats1
	Handle hoConditionalFormats1
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
	Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
		Variant voConditionalFormat1
		Get ComAdd of hoConditionalFormats1 "1" "K2" to voConditionalFormat1
		Handle hoConditionalFormat1
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
		Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
			Set ComBackColor of hoConditionalFormat1 to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat1 to |CI$2
		Send Destroy to hoConditionalFormat1
	Send Destroy to hoConditionalFormats1
	Set ComMarkSearchColumn to False
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Get ComAdd of hoColumns "Column 2" to Nothing
		Get ComAdd of hoColumns "Column 3" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
765
How can I get the list of items as they are displayed
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Names" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Mantel" to Nothing
		Get ComAddItem of hoItems "Mechanik" to Nothing
		Get ComAddItem of hoItems "Motor" to Nothing
		Get ComAddItem of hoItems "Murks" to Nothing
		Get ComAddItem of hoItems "Märchen" to Nothing
		Get ComAddItem of hoItems "Möhren" to Nothing
		Get ComAddItem of hoItems "Mühle" to Nothing
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Send ComEndUpdate
	Showln (ComGetItems(Self,1))
End_Procedure
764
Is posible to reduce the size of the picture to be shown in the column's caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHeaderHeight to 48
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DefaultSize" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHTMLCaption of hoColumn to "Default-Size <img>pic1</img> Picture"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "CustomSize" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComHTMLCaption of hoColumn1 to "Custom-Size <img>pic1:16</img> Picture"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
763
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
			Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat to |CI$1
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "C2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHeaderBold of hoColumn to True
			Set ComHTMLCaption of hoColumn to "<fgcolor=FF0000>C2"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellCaption of hoItems (ComAddItem(hoItems,10)) 1 to 11
		Set ComCellCaption of hoItems (ComAddItem(hoItems,12)) 1 to 13
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
762
The item is not getting selected when clicking the cell's checkbox. What should I do

// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM   llItem Integer   llColIndex
	Forward Send OnComCellStateChanged llItem llColIndex
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComSelectItem of hoItems llItem to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 0 to Nothing
		Get ComAddItem of hoItems1 1 to Nothing
		Get ComAddItem of hoItems1 2 to Nothing
		Get ComAddItem of hoItems1 3 to Nothing
	Send Destroy to hoItems1
End_Procedure
761
Is it possible to limit the height of the item while resizing

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemMinHeight of hoItems llItem to 18
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComItemMaxHeight of hoItems1 llItem to 72
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComItemsAllowSizing to OLEexResizeItem
	Set ComScrollBySingleLine to False
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Names" to Nothing
	Send Destroy to hoColumns
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Get ComAddItem of hoItems2 "Mantel" to Nothing
		Get ComAddItem of hoItems2 "Mechanik" to Nothing
		Get ComAddItem of hoItems2 "Motor" to Nothing
		Get ComAddItem of hoItems2 "Murks" to Nothing
		Get ComAddItem of hoItems2 "Märchen" to Nothing
		Get ComAddItem of hoItems2 "Möhren" to Nothing
		Get ComAddItem of hoItems2 "Mühle" to Nothing
	Send Destroy to hoItems2
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
760
Is it possible to copy the hierarchy of the control using the GetItems method

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComPutItems (ComGetItems(Self,-1)) Nothing
End_Procedure
759
Does your control supports multiple lines tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComToolTipDelay to 1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
758
It is possible to write the word in red/color or to add a tooltip or a link to the word

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "12/26/2000"
		Set ComPaneWidth of hoChart False to 32
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "" "1/1/2001" "1/5/2001" "K1" "some <fgcolor=FF0000>red</fgcolor> text"
		Set ComItemBar of hoItems h1 "K1" OLEexBarPercent to False
		Set ComItemBar of hoItems h1 "K1" OLEexBarToolTip to "And here goes the <b>tooltip</b> of the text. "
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Set ComItemBar of hoItems h2 "K2" OLEexBarToolTip to "And here goes the <b>tooltip</b> of the bar. "
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L<b>inke</b>d to a bar"
		Set ComLink of hoItems "L1" OLEexLinkToolTip to "And here goes the <b>tooltip</b> of the link. "
	Send Destroy to hoItems
End_Procedure
757
It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLabel of hoChart OLEexMonth to "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
		Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMonth to "<%loc_mmmm%>/<%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexHour to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMinute to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexSecond to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 0
		Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
		Set ComLevelCount of hoChart1 to 4
		Variant voLevel
		Get ComLevel of hoChart1 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 4096
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart1 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to 65536
		Send Destroy to hoLevel1
		Variant voLevel2
		Get ComLevel of hoChart1 2 to voLevel2
		Handle hoLevel2
		Get Create (RefClass(cComLevel)) to hoLevel2
		Set pvComObject of hoLevel2 to voLevel2
			Set ComLabel of hoLevel2 to 1048576
		Send Destroy to hoLevel2
		Variant voLevel3
		Get ComLevel of hoChart1 3 to voLevel3
		Handle hoLevel3
		Get Create (RefClass(cComLevel)) to hoLevel3
		Set pvComObject of hoLevel3 to voLevel3
			Set ComCount of hoLevel3 to 15
			Set ComLabel of hoLevel3 to 16777216
		Send Destroy to hoLevel3
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure
756
The chart's header is displayed in English. Can I change so it is the same as in my regional settings

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLabel of hoChart OLEexMonth to "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
		Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMonth to "<%loc_mmmm%>/<%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexHour to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMinute to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexSecond to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 0
		Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
		Set ComLevelCount of hoChart1 to 2
		Set ComUnitScale of hoChart1 to OLEexDay
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure
755
It is possible to use seconds/minutes/hours as time scale in your control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 4
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 4096
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to 65536
		Send Destroy to hoLevel1
		Variant voLevel2
		Get ComLevel of hoChart 2 to voLevel2
		Handle hoLevel2
		Get Create (RefClass(cComLevel)) to hoLevel2
		Set pvComObject of hoLevel2 to voLevel2
			Set ComLabel of hoLevel2 to 1048576
		Send Destroy to hoLevel2
		Variant voLevel3
		Get ComLevel of hoChart 3 to voLevel3
		Handle hoLevel3
		Get Create (RefClass(cComLevel)) to hoLevel3
		Set pvComObject of hoLevel3 to voLevel3
			Set ComCount of hoLevel3 to 15
			Set ComLabel of hoLevel3 to 16777216
		Send Destroy to hoLevel3
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
754
How can I prevent highlighting the column from the cursor - point

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCursorHoverColumn to |CI$1000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "S" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 32
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Level 1" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComLevelKey of hoColumn1 to 1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComAdd of hoColumns2 "Level 2" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComLevelKey of hoColumn2 to 1
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voColumns3
	Get ComColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Variant voColumn3
		Get ComAdd of hoColumns3 "Level 3" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComLevelKey of hoColumn3 to 1
		Send Destroy to hoColumn3
	Send Destroy to hoColumns3
	Variant voColumns4
	Get ComColumns to voColumns4
	Handle hoColumns4
	Get Create (RefClass(cComColumns)) to hoColumns4
	Set pvComObject of hoColumns4 to voColumns4
		Variant voColumn4
		Get ComAdd of hoColumns4 "E1" to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComWidth of hoColumn4 to 32
		Send Destroy to hoColumn4
	Send Destroy to hoColumns4
	Variant voColumns5
	Get ComColumns to voColumns5
	Handle hoColumns5
	Get Create (RefClass(cComColumns)) to hoColumns5
	Set pvComObject of hoColumns5 to voColumns5
		Variant voColumn5
		Get ComAdd of hoColumns5 "E2" to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComWidth of hoColumn5 to 32
		Send Destroy to hoColumn5
	Send Destroy to hoColumns5
	Variant voColumns6
	Get ComColumns to voColumns6
	Handle hoColumns6
	Get Create (RefClass(cComColumns)) to hoColumns6
	Set pvComObject of hoColumns6 to voColumns6
		Variant voColumn6
		Get ComAdd of hoColumns6 "E3" to voColumn6
		Handle hoColumn6
		Get Create (RefClass(cComColumn)) to hoColumn6
		Set pvComObject of hoColumn6 to voColumn6
			Set ComWidth of hoColumn6 to 32
		Send Destroy to hoColumn6
	Send Destroy to hoColumns6
	Variant voColumns7
	Get ComColumns to voColumns7
	Handle hoColumns7
	Get Create (RefClass(cComColumns)) to hoColumns7
	Set pvComObject of hoColumns7 to voColumns7
		Variant voColumn7
		Get ComAdd of hoColumns7 "E4" to voColumn7
		Handle hoColumn7
		Get Create (RefClass(cComColumn)) to hoColumn7
		Set pvComObject of hoColumn7 to voColumn7
			Set ComWidth of hoColumn7 to 32
		Send Destroy to hoColumn7
	Send Destroy to hoColumns7
End_Procedure
753
Can I use and display PNG pictures

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\card.png"
	Set ComHeaderHeight to 48
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "ColumnName" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHTMLCaption of hoColumn to "<b>HTML</b> Column <img>pic1</img> Picture"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
752
Is it possible to specify the background color for the item in the chart part only

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to (RGB(255,0,0))
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
751
Is it possible to apply different visual appearance, color, sizes for item in the list and chart part

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 3 "CP:2 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance2
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Set ComSelBackMode to OLEexTransparent
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to |CI$1ffff00
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to |CI$300ff00
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
750
How do I change the visual appearance for the entire item, using your EBN technology

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to |CI$1000000
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to |CI$1000000
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
749
is it possible to specify the a different background color for the item, list and chart part

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to (RGB(255,0,0))
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to (RGB(255,255,0))
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
748
Is it possible to specify the background color for the entire row, including the chart part

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to (RGB(255,0,0))
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to (RGB(255,0,0))
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
747
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant vToolTip
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to vToolTip
	Send Destroy to hoChart
	Send ComShowToolTip vToolTip "" "8" "8" Nothing
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 64
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
		Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
		Send ComAddBar of hoItems h "Task" "1/8/2010" "1/11/2010" "C" "C"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
746
Is it possible to move an item from a parent to another

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "A" to Nothing
		Get ComAddItem of hoItems "B" to Nothing
		Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
		Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) (ComFindItem(hoItems,"A",0,Nothing))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
745
How can I change the identation for an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "A" to Nothing
		Get ComAddItem of hoItems "B" to Nothing
		Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
		Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) 0
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
744
How can I specify the levels using the user's Regional and Language Options

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Arial Unicode MS"
	Send Destroy to hoStdFont
	Set ComHeaderHeight to 36
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "5/30/2010"
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComUnitWidth of hoChart to 36
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> "
			Set ComToolTip of hoLevel to (ComLabel(hoLevel))
			Set ComUnit of hoLevel to OLEexWeek
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%loc_ddd%><br><%d%>"
			Set ComToolTip of hoLevel1 to (ComLabel(hoLevel1))
		Send Destroy to hoLevel1
		Set ComToolTip of hoChart to "<%loc_ldate%>"
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
743
How can I display a bar only using a gradient color and shadow

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComColor(hoBar))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Gradient" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 8291
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
742
Is it possible to display a bar only using a gradient color using the exBarColor option

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComStartColor(hoBar))
				Set ComHeight of hoBar to 17
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Gradient" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 227
		Get ComAddItem of hoItems "W/h Color" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 227
		Set ComItemBar of hoItems h "" OLEexBarColor to 255
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
741
Is it possible to display a bar only using a gradient color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComStartColor(hoBar))
				Set ComHeight of hoBar to 17
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Gradient" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 227
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
740
Is it possible to display a bar only using a gradient color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComColor(hoBar))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Gradient" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 99
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
739
How can I display a specified bar only with a thicker border

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Border" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 4099
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
738
Is it possible to display the shadow for a specified bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Shadow" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 8195
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
737
Is it possible to display the task bars with a gradient color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Get ComCopy of hoBars "Task" "TaskO" to Nothing
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar
			Get ComItem of hoBars1 "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to (OLEexPatternGradientVBox + OLEexPatternBox + OLEexPatternShadow)
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComColor(hoBar))
			Send Destroy to hoBar
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "TaskO" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "TaskO" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
736
How can I know the type of bars I can displays using predefined patterns

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Box" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternBox
			Send Destroy to hoBar
			Variant voBar1
			Get ComAdd of hoBars "ThickBox" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComPattern of hoBar1 to (OLEexPatternThickBox + OLEexPatternBox)
			Send Destroy to hoBar1
			Variant voBar2
			Get ComAdd of hoBars "DiagBox" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComPattern of hoBar2 to (OLEexPatternThickBox + OLEexPatternBDiagonal)
			Send Destroy to hoBar2
			Variant voBar3
			Get ComCopy of hoBars "Task" "Shadow" to voBar3
			Handle hoBar3
			Get Create (RefClass(cComBar)) to hoBar3
			Set pvComObject of hoBar3 to voBar3
				Set ComPattern of hoBar3 to (OLEexPatternFrameShadow + OLEexPatternShadow)
			Send Destroy to hoBar3
			Variant voBar4
			Get ComCopy of hoBars "Task" "TShadow" to voBar4
			Handle hoBar4
			Get Create (RefClass(cComBar)) to hoBar4
			Set pvComObject of hoBar4 to voBar4
				Set ComPattern of hoBar4 to (OLEexPatternFrameShadow + OLEexPatternThickBox + OLEexPatternDiagCross)
			Send Destroy to hoBar4
			Variant voBar5
			Get ComAdd of hoBars "HGrad1" to voBar5
			Handle hoBar5
			Get Create (RefClass(cComBar)) to hoBar5
			Set pvComObject of hoBar5 to voBar5
				Set ComPattern of hoBar5 to OLEexPatternBox
				Set ComStartColor of hoBar5 to (RGB(255,255,255))
				Set ComEndColor of hoBar5 to (RGB(0,0,255))
			Send Destroy to hoBar5
			Variant voBar6
			Get ComAdd of hoBars "HGrad2" to voBar6
			Handle hoBar6
			Get Create (RefClass(cComBar)) to hoBar6
			Set pvComObject of hoBar6 to voBar6
				Set ComPattern of hoBar6 to (OLEexPatternBox + OLEexPatternShadow)
				Set ComStartColor of hoBar6 to (RGB(255,255,255))
				Set ComEndColor of hoBar6 to (RGB(0,0,255))
				Set ComColor of hoBar6 to (RGB(0,0,255))
			Send Destroy to hoBar6
			Variant voBar7
			Get ComAdd of hoBars "HGrad3" to voBar7
			Handle hoBar7
			Get Create (RefClass(cComBar)) to hoBar7
			Set pvComObject of hoBar7 to voBar7
				Set ComPattern of hoBar7 to (OLEexPatternGradient3Colors + OLEexPatternBox + OLEexPatternShadow)
				Set ComStartColor of hoBar7 to (RGB(255,255,255))
				Set ComEndColor of hoBar7 to (ComStartColor(hoBar7))
				Set ComColor of hoBar7 to (RGB(0,0,255))
			Send Destroy to hoBar7
			Variant voBar8
			Get ComAdd of hoBars "HGrad4" to voBar8
			Handle hoBar8
			Get Create (RefClass(cComBar)) to hoBar8
			Set pvComObject of hoBar8 to voBar8
				Set ComPattern of hoBar8 to (OLEexPatternThickBox + OLEexPatternGradient3Colors + OLEexPatternBox)
				Set ComStartColor of hoBar8 to (RGB(255,255,255))
				Set ComEndColor of hoBar8 to (ComStartColor(hoBar8))
				Set ComColor of hoBar8 to (RGB(0,0,255))
			Send Destroy to hoBar8
			Variant voBar9
			Get ComAdd of hoBars "HGrad5" to voBar9
			Handle hoBar9
			Get Create (RefClass(cComBar)) to hoBar9
			Set pvComObject of hoBar9 to voBar9
				Set ComPattern of hoBar9 to (OLEexPatternFrameShadow + OLEexPatternGradient3Colors + OLEexPatternBox)
				Set ComStartColor of hoBar9 to (RGB(0,255,0))
				Set ComEndColor of hoBar9 to (RGB(255,0,0))
				Set ComColor of hoBar9 to (RGB(0,0,255))
			Send Destroy to hoBar9
			Variant voBar10
			Get ComAdd of hoBars "VGrad1" to voBar10
			Handle hoBar10
			Get Create (RefClass(cComBar)) to hoBar10
			Set pvComObject of hoBar10 to voBar10
				Set ComPattern of hoBar10 to (OLEexPatternGradientVBox + OLEexPatternBox)
				Set ComStartColor of hoBar10 to (RGB(255,255,255))
				Set ComEndColor of hoBar10 to (RGB(0,0,255))
				Set ComHeight of hoBar10 to 14
			Send Destroy to hoBar10
			Variant voBar11
			Get ComAdd of hoBars "VGrad2" to voBar11
			Handle hoBar11
			Get Create (RefClass(cComBar)) to hoBar11
			Set pvComObject of hoBar11 to voBar11
				Set ComPattern of hoBar11 to (OLEexPatternGradientVBox + OLEexPatternBox + OLEexPatternShadow)
				Set ComStartColor of hoBar11 to (RGB(255,255,255))
				Set ComEndColor of hoBar11 to (RGB(0,0,255))
				Set ComColor of hoBar11 to (RGB(0,0,255))
				Set ComHeight of hoBar11 to 14
			Send Destroy to hoBar11
			Variant voBar12
			Get ComAdd of hoBars "VGrad3" to voBar12
			Handle hoBar12
			Get Create (RefClass(cComBar)) to hoBar12
			Set pvComObject of hoBar12 to voBar12
				Set ComPattern of hoBar12 to (OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox + OLEexPatternShadow)
				Set ComStartColor of hoBar12 to (RGB(255,255,255))
				Set ComEndColor of hoBar12 to (ComStartColor(hoBar12))
				Set ComColor of hoBar12 to (RGB(0,0,255))
				Set ComHeight of hoBar12 to 14
			Send Destroy to hoBar12
			Variant voBar13
			Get ComAdd of hoBars "VGrad4" to voBar13
			Handle hoBar13
			Get Create (RefClass(cComBar)) to hoBar13
			Set pvComObject of hoBar13 to voBar13
				Set ComPattern of hoBar13 to (OLEexPatternThickBox + OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox)
				Set ComStartColor of hoBar13 to (RGB(255,255,255))
				Set ComEndColor of hoBar13 to (ComStartColor(hoBar13))
				Set ComColor of hoBar13 to (RGB(0,0,255))
				Set ComHeight of hoBar13 to -1
			Send Destroy to hoBar13
			Variant voBar14
			Get ComAdd of hoBars "VGrad5" to voBar14
			Handle hoBar14
			Get Create (RefClass(cComBar)) to hoBar14
			Set pvComObject of hoBar14 to voBar14
				Set ComPattern of hoBar14 to (OLEexPatternFrameShadow + OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox)
				Set ComStartColor of hoBar14 to (RGB(0,255,0))
				Set ComEndColor of hoBar14 to (RGB(255,0,0))
				Set ComColor of hoBar14 to (RGB(0,0,255))
				Set ComHeight of hoBar14 to 14
			Send Destroy to hoBar14
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Box")) "Box" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Thick Box")) "ThickBox" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Thick Box Diag")) "DiagBox" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Shadow")) "Shadow" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Thick Shadow")) "TShadow" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient")) "HGrad1" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient")) "HGrad2" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient 3 Colors")) "HGrad3" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient 3 Colors")) "HGrad4" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Gradient Shadow")) "HGrad5" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient")) "VGrad1" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient")) "VGrad2" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient 3 Colors")) "VGrad3" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient 3 Colors")) "VGrad4" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Gradient Shadow")) "VGrad5" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
735
Is it possible to display the bars with a thicker border

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 48
	Send Destroy to hoChart1
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Variant voBars
		Get ComBars of hoChart2 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "TaskB" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to (OLEexPatternThickBox + OLEexPatternShadow)
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/5/2001" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "TaskB" "1/2/2001" "1/5/2001" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/5/2001" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
734
Is it possible to display the shadow for EBN bars

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 48
	Send Destroy to hoChart1
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Variant voBars
		Get ComBars of hoChart2 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "EBN" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
				Set ComPattern of hoBar to OLEexPatternFrameShadow
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart2
	Variant voChart3
	Get ComChart to voChart3
	Handle hoChart3
	Get Create (RefClass(cComChart)) to hoChart3
	Set pvComObject of hoChart3 to voChart3
		Variant voBars1
		Get ComBars of hoChart3 to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Task" "EBN2" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to |CI$1000000
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "EBN2" "1/2/2001" "1/5/2001" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "EBN" "1/2/2001" "1/5/2001" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "EBN2" "1/2/2001" "1/5/2001" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
733
Can I display a shadow for my bars

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 48
	Send Destroy to hoChart1
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Variant voBars
		Get ComBars of hoChart2 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Variant voBar1
				Get ComItem of hoBar "Task" to voBar1
				Handle hoBar1
				Get Create (RefClass(cComBar)) to hoBar1
				Set pvComObject of hoBar1 to voBar1
					Set ComPattern of hoBar1 to (OLEexPatternFrameShadow + OLEexPatternShadow)
				Send Destroy to hoBar1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/5/2001" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/5/2001" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
732
How can I use the Color property for gradient bars

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 48
	Send Destroy to hoChart1
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Variant voBars
		Get ComBars of hoChart2 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "V" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(255,0,0))
				Set ComStartColor of hoBar to (RGB(0,255,0))
				Set ComEndColor of hoBar to (ComStartColor(hoBar))
				Set ComPattern of hoBar to (OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox)
				Set ComHeight of hoBar to -1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart2
	Variant voChart3
	Get ComChart to voChart3
	Handle hoChart3
	Get Create (RefClass(cComChart)) to hoChart3
	Set pvComObject of hoChart3 to voChart3
		Variant voBars1
		Get ComBars of hoChart3 to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "H" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to (RGB(255,0,0))
				Set ComStartColor of hoBar1 to (RGB(0,255,0))
				Set ComEndColor of hoBar1 to (ComStartColor(hoBar1))
				Set ComPattern of hoBar1 to (OLEexPatternGradient3Colors + OLEexPatternBox)
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "V" "1/2/2001" "1/5/2001" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "H" "1/2/2001" "1/5/2001" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
731
Is there any option to show bars with vertical gradient

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Variant voBar1
				Get ComItem of hoBar "Task" to voBar1
				Handle hoBar1
				Get Create (RefClass(cComBar)) to hoBar1
				Set pvComObject of hoBar1 to voBar1
					Set ComColor of hoBar1 to (RGB(255,0,0))
					Set ComStartColor of hoBar1 to (RGB(0,255,0))
					Set ComEndColor of hoBar1 to (RGB(255,255,0))
					Set ComPattern of hoBar1 to (OLEexPatternGradientVBox + OLEexPatternBox)
				Send Destroy to hoBar1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
	Send Destroy to hoItems
End_Procedure
730
How can I define a new milestone bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Send ComAddShapeCorner of hoBars 12345 1
			Send ComAddShapeCorner of hoBars 12346 2
			Variant voBar
			Get ComCopy of hoBars "Milestone" "M1" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartShape of hoBar to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
			Send Destroy to hoBar
			Variant voBar1
			Get ComCopy of hoBars "Milestone" "M2" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComStartShape of hoBar1 to (|CI$3020 + OLEexShapeIconSquare + OLEexShapeIconRight)
			Send Destroy to hoBar1
			Variant voBar2
			Get ComCopy of hoBars "Milestone" "MP" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComStartShape of hoBar2 to OLEexShapeIconStar
				Set ComStartColor of hoBar2 to (RGB(255,0,0))
			Send Destroy to hoBar2
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Default")) "Milestone" "1/2/2001" "1/2/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Predefined")) "MP" "1/3/2001" "1/3/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Custom 1")) "M1" "1/4/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Custom 2")) "M2" "1/5/2001" "1/5/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
729
How can I define my milestone bar, using my icons or pictures

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Send ComAddShapeCorner of hoBars 12345 1
			Variant voBar
			Get ComItem of hoBars "Milestone" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartShape of hoBar to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Milestone" "1/2/2001" "1/2/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure
728
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComMonthNames of hoChart to "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
		Set ComWeekDays of hoChart to "domenica lunedì martedì mercoledì giovedì venerdì sabato"
		Set ComToolTip of hoChart to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		Set ComUnitScale of hoChart to OLEexDay
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
727
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComMonthNames of hoChart to "januari februari maart april mei juni juli augusts september oktober november december"
		Set ComWeekDays of hoChart to "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
		Set ComToolTip of hoChart to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		Set ComUnitScale of hoChart to OLEexDay
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
726
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%d%>.<%mmmm%> <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComMonthNames of hoChart to "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
		Set ComWeekDays of hoChart to "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
		Set ComToolTip of hoChart to "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
		Set ComUnitScale of hoChart to OLEexDay
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
725
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComMonthNames of hoChart to "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
		Set ComWeekDays of hoChart to "dimanche lundi mardi mercredi jeudi vendredi samedi"
		Set ComToolTip of hoChart to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		Set ComUnitScale of hoChart to OLEexDay
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
724
How can I filter programatically using more columns

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Car" to Nothing
		Get ComAdd of hoColumns "Equipment" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellCaption of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag"
		Set ComCellCaption of hoItems (ComAddItem(hoItems,"Toyota")) 1 to "Air Bag,Air condition"
		Set ComCellCaption of hoItems (ComAddItem(hoItems,"Ford")) 1 to "Air condition"
		Set ComCellCaption of hoItems (ComAddItem(hoItems,"Nissan")) 1 to "Air Bag,ABS,ESP"
		Set ComCellCaption of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag, ABS,ESP"
		Set ComCellCaption of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "ABS,ESP"
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 "Car" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFilterType of hoColumn to OLEexFilter
			Set ComFilter of hoColumn to "Mazda"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComItem of hoColumns2 "Equipment" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFilterType of hoColumn1 to OLEexPattern
			Set ComFilter of hoColumn1 to "*ABS*|*ESP*"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
723
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Value" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 24
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "SWITCH - statment" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
			Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
722
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Value" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 24
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "IN - statment" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
			Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
721
How can I use the CASE statement (CASE usage)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Value" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 24
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "CASE - statment" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
			Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
720
How can I use the CASE statement (CASE usage)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Value" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 24
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "CASE - statment" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
			Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
719
Is is possible to use HTML tags to display in the filter caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarCaption to "This is a bit of text being displayed in the filter bar."
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
		Get ComAddItem of hoItems "Item 3" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
718
How can I find the number of items after filtering
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "" to h
		Set ComCellCaption of hoItems h 0 to (ComVisibleItemCount(hoItems))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
717
How can I change the filter caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to (OLEexFilterPromptWords + OLEexFilterPromptContainsAll)
	Set ComFilterBarPromptPattern to "london robert"
	Set ComFilterBarCaption to "<r>Found: ... "
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
716
While using the filter prompt is it is possible to use wild characters

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to OLEexFilterPromptPattern
	Set ComFilterBarPromptPattern to "lon* seat*"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
715
How can I list all items that contains any of specified words, not necessary at the beggining

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to (OLEexFilterPromptStartWords + OLEexFilterPromptContainsAny)
	Set ComFilterBarPromptPattern to "london davolio"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
714
How can I list all items that contains any of specified words, not strings

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to (OLEexFilterPromptWords + OLEexFilterPromptContainsAny)
	Set ComFilterBarPromptPattern to "london nancy"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
713
How can I list all items that contains all specified words, not strings

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to (OLEexFilterPromptWords + OLEexFilterPromptContainsAll)
	Set ComFilterBarPromptPattern to "london robert"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
712
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to (OLEexFilterPromptCaseSensitive + OLEexFilterPromptContainsAny)
	Set ComFilterBarPromptPattern to "Anne"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
711
Is it possible to list only items that ends with any of specified strings

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to OLEexFilterPromptEndWith
	Set ComFilterBarPromptColumns to "0"
	Set ComFilterBarPromptPattern to "Fuller"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
710
Is it possible to list only items that ends with any of specified strings

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to OLEexFilterPromptEndWith
	Set ComFilterBarPromptColumns to "0"
	Set ComFilterBarPromptPattern to "Fuller"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
709
Is it possible to list only items that starts with any of specified strings

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to OLEexFilterPromptStartWith
	Set ComFilterBarPromptColumns to "0"
	Set ComFilterBarPromptPattern to "An M"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
708
Is it possible to list only items that starts with specified string

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to OLEexFilterPromptStartWith
	Set ComFilterBarPromptColumns to "0"
	Set ComFilterBarPromptPattern to "A"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
707
How can I specify that the list should include any of the seqeunces in the pattern

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
	Set ComFilterBarPromptPattern to "london seattle"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
706
How can I specify that all sequences in the filter pattern must be included in the list

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptType to OLEexFilterPromptContainsAll
	Set ComFilterBarPromptPattern to "london manager"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
705
How do I change at runtime the filter prompt

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptPattern to "london manager"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
704
How do I specify to filter only a single column when using the filter prompt

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPromptColumns to "2,3"
	Set ComFilterBarPromptPattern to "london"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
703
How do I change the prompt or the caption being displayed in the filter bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Set ComFilterBarPrompt to "changed"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Send ComEndUpdate
End_Procedure
702
How do I enable the filter prompt feature

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to True
	Set ComContinueColumnScroll to False
	Set ComMarkSearchColumn to False
	Set ComSearchColumnIndex to 1
	Set ComFilterBarPromptVisible to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Name" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Title" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 96
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "City" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "Nancy Davolio" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Andrew Fuller" to h0
		Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
		Set ComCellCaption of hoItems h0 2 to "Tacoma"
		Set ComSelectItem of hoItems h0 to True
		Get ComAddItem of hoItems "Janet Leverling" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Kirkland"
		Get ComAddItem of hoItems "Margaret Peacock" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "Redmond"
		Get ComAddItem of hoItems "Steven Buchanan" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Manager"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Michael Suyama" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Robert King" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
		Get ComAddItem of hoItems "Laura Callahan" to h0
		Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
		Set ComCellCaption of hoItems h0 2 to "Seattle"
		Get ComAddItem of hoItems "Anne Dodsworth" to h0
		Set ComCellCaption of hoItems h0 1 to "Sales Representative"
		Set ComCellCaption of hoItems h0 2 to "London"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
701
Is it possible to colour a particular column, I mean the cell's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat to |CI$1
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Get ComAdd of hoColumns "Column 2" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellCaption of hoItems (ComAddItem(hoItems,0)) 1 to 1
		Set ComCellCaption of hoItems (ComAddItem(hoItems,2)) 1 to 3
		Set ComCellCaption of hoItems (ComAddItem(hoItems,4)) 1 to 5
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure